home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG Library 8 / PC-SIG Library CD-ROM (8th Edition) (1990-04).iso / 001_100 / disk0004 / dbmenu.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-11-10  |  1.3 KB  |  37 lines
  1. 10  CLS:KEY OFF
  2. 20  REM   DBMS CREATED BY T.G.Lewis (USING THE IBM PERSONAL COMPUTER)
  3. 21  REM        DBMS contains the following files:
  4. 22  REM             create.bas, insert.bas, lookup.bas
  5. 23  REM             backup.bas, screen.bas, dump.bas
  6. 24  REM       DBMS allows up to 127 fields
  7. 30  REM-------------------------------------
  8. 40  REM
  9. 50  REM               DBMENU.BAS
  10. 60  REM   Root program of the DBMS demo program
  11. 70  REM
  12. 80  REM-----------------------------------------
  13. 90  REM
  14. 100  NMAX%=7
  15. 110  FOR I%=1 TO 25:PRINT:NEXT I%
  16. 120  PRINT TAB(25) "DATABASE MANAGEMENT SYSTEM":PRINT:PRINT
  17. 121  PRINT" To create a totally new database system you must first use [1], then [5], then
  18. 122  PRINT" [2].":PRINT:PRINT
  19. 130  PRINT"     [ 1 ]. Create a database system."
  20. 140  PRINT"     [ 2 ]. Add new records."
  21. 150  PRINT"     [ 3 ]. Lookup or Modify existing records."
  22. 160  PRINT"     [ 4 ]. Backup file and index."
  23. 170  PRINT"     [ 5 ]. Build screen form ( for input )."
  24. 180  PRINT"     [ 6 ]. Quick dump index file."
  25. 190  PRINT"     [ 7 ]. Stop. Exit DBMS system."
  26. 200  PRINT:PRINT:PRINT:PRINT:PRINT"       Select one of the above: "; :INPUT N%
  27. 210  PRINT:PRINT:PRINT
  28. 220  IF N%>NMAX% OR N%<1 THEN 110
  29. 230  ON N% GOTO 240,250,260,270,280,290,300
  30. 240        RUN "CREATE"
  31. 250        RUN "INSERT"
  32. 260        RUN "LOOKUP"
  33. 270        RUN "BACKUP"
  34. 280        RUN "SCREEN"
  35. 290        RUN "DUMP"
  36. 300  END
  37.